##############################################################################
###+----------+###############################################################
#+-| CMONTH() |-----------------------------------+###########################
#| +----------+ Returns month in character format |###########################
#+------------------------------------------------+###########################
##############################################################################
##############################################################################
#+--| Summary |--------------+################################################
#|     #INCLUDE date.hdr     |################################################
#+---------------------------+################################################
##############################################################################
##############################################################################
#+--| Syntax |-------------------------------+################################
#|     FUNCTION CHAR cmonth PROTOTYPE        |################################
#|      PARAMETERS VALUE DATE date_value     |################################
#+-------------------------------------------+################################
##############################################################################
##############################################################################
############+---| Description |-----------------------------------+###########
############| The cmonth() function returns a character string of |###########
############| the name of the month represented by date_value.    |###########
############+-----------------------------------------------------+###########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########|                                                          |#########
#########| ? cmonth( ctod("08/13/89"))                              |#########
#########|                                                          |#########
#########|   Output:                                                |#########
#########| August                                                   |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Print month for a report on the number of           |#########
#########| *    fires handled by volunteer fire department.         |#########
#########|                                                          |#########
#########| ? "Number of fires in " + cmonth( start_date )           |#########
#########+----------------------------------------------------------+#########
##############################################################################